Perl formatting in pgp

I finally got this form to work it is encrypted but, I can't figue out how
to insert some formatting so the email it generates doesn't look so bad.
I have posted the script below and I think I figured out where to put at
least a line break.

I am working on line 224 fyi I pasted here---->


foreach my $param ( $CGI->param ) {

if (substr($param,0,3) ne "cfg") {
if ($CGI->uploadInfo($CGI->param($param)))
{
# this is a file upload
my $filename = $CGI->param($param);
$cgiFields{$param} = $filename; # (used in auto-reply)

$filename =~ s/\\/\//g;
$filename = substr($filename,rindex($filename,"/")+1);
my $filepath = $TEMP_DIR . $$ . "_" . $filename; # temporarily save file
here
if ($useHtml) {
$plainText .= "$param($filename
attached)\n";
} else {
$plainText .= "$param: ($filename attached)\n";
}

# save the file to disk for email attaching. use binmode
# so windows will deal with binary files properly
my $fh = $CGI->upload($param);
my $buffer,
my $bytesread;
open (OUTFILE,">>$filepath");
binmode(OUTFILE);
while ($bytesread=read($fh,$buffer,1024)) {
print OUTFILE $buffer;
}
close OUTFILE;
$email->AttachFile($filepath,$filename);
$attachedFiles{$filepath} = 1;
}
else
{
# this is a regular field
my @buff = $CGI->param($param); # in case of multi-value field
$cgiFields{$param} = join($ENV{"MVF_DELIM"}, @buff);

if (($cgiFields{$param} ne "") || (!$supress) ) {
if ($useHtml) {
$plainText .= "" . $param . "" .
$cgiFields{$param} . "\n";
} else {

####### This is the only line that I can edit----> $plainText .= $param
.. ": " . $cgiFields{$param} . "\n\n";



}
}

}
}
}


Thanks a lot for any help.


#!/usr/bin/perl



# ------------------------------------------------------------ ----------------
# PRODUCT INFORMATION:
my $PRODUCT_VERSION = "3.33";
my $PRODUCT_NAME = "SimpleSecure Pro";
my $PRODUCT_DESCRIPTION = "Professional secure form processor.";
my $PRODUCT_COPYRIGHT = "Copyright © 1997-2004 href='http://www.verysimple.com/'>verysimple.com";
#
# COPYRIGHT NOTICE:
# The product and copyright information above may not be changed unless
# you have purchased a user license for this software. Please support
# the continued development of this product by either registering, or
# leaving the small copyright notice as-is.
#
# LEGAL DISCLAIMER:
# This software is provided as-is. Use it at your own risk. The
# author takes no responsibility for any damages or losses directly
# or indirectly caused by this software.
#
# CHANGE HISTORY:
# TODO: (3.34) implement "cfgOrder" parameter
# 3.33 fixed incorrect login bug & added PGP files to keys dir
# 3.32 changed keypaths to relative
# 3.31 added cfgSupress
# 3.30 crypt the admin password for added security
# 3.22 added support for multi-value fields
# 3.21 updated form url for nix servers 404 errors, added cfgRequired
# 3.20 add PGP keyview and key import
# 3.10 add auto-response feature
# 3.00 code re-write
# ------------------------------------------------------------ ----------------


BEGIN {
#
############################################################ #################
# CONFIGURATION SETTINGS
#
############################################################ #################

# these settings should only be changed if the script does not install
# correctly, or you need to move the configuration file to an alternate
# location. all user settings should be changed using the setup utility
# through your web browser.

# if the script can't find the current directory, then you
# can manually specify it here. for example:
#$ENV{"CWD"} = "C:/InetPub/wwwroot/cgi-bin";
$ENV{"CWD"} = GetCwd();

# this is the file path to the config file. not recommended
# to change this
$ENV{"CONFIG_FILE"} = $ENV{"CWD"} . "/data/ssecure.cfg.txt";

# multi-value field value delimiter
$ENV{"MVF_DELIM"} = ", ";

# you can change the crypt salt here if desired. however, you
# will have to manually generate your admin password and edit
# ssecure.cfg.txt manually before you will be able to login
$ENV{'SALT'} = "verysimple";

# uncomment to disable output buffering. different servers react
# differently to this setting
# $|++

#
############################################################ #################

push(@INC,$ENV{"CWD"});

sub GetCwd {
# v 1.2 - returns cwd _with_ trailing slash
my $sPath = $ENV{"SCRIPT_FILENAME"} || $ENV{"PATH_TRANSLATED"} || $0 ||
"./";
my $pos = rindex($sPath,"\\");
if ($pos < 0) {$pos = rindex($sPath,"\/")}
if ($pos < 0) {$pos = "./"} # servers that report no name
return (( substr($sPath,0,$pos) || ($ENV{"PWD"} || ".") ) . "/");
}

}
# ------------------------------------------------------------ ----------------

use strict;
use CGI::Carp 'fatalsToBrowser';
use CGI;
use verysimple::Config;
use verysimple::DB;
use verysimple::DBGrid;
use verysimple::Email;
use verysimple::Session;
use verysimple::Util;

# $CGI::DISABLE_UPLOADS = 1;

# set some application scope variables:
my ($CGI) = new CGI;
my ($CONFIG) = new verysimple::Config(file => $ENV{"CONFIG_FILE"});
$CONFIG->Salt($ENV{'SALT'});
my ($TEMP_DIR) = $ENV{"CWD"} . $CONFIG->GetValue("Temp_Directory");
my ($SESSION) = new verysimple::Session(TempDir=>$TEMP_DIR,
CookieName=>'SimpleSecure');
my ($UTIL) = new verysimple::Util();
my ($SCRIPT_PATH) = $ENV{'SCRIPT_NAME'} || $CGI->url || "ssecure.pl";
use Time::Local;
my $time = timelocal(0,0,0,1,0,100);
my $string = localtime $time;


&main();

#___________________________________________________________ __________________
sub main {

my ($command) = $CGI->param("c") || "";
my ($id) = $CGI->param("cfgId") || "";

if ($command eq "x") { PrintSetup() }
elsif ($command eq "l") { ProcessLogin() }
elsif ($command eq "o") { ProcessLogout() }
elsif ($id) { ProcessForm($id) }
else { PrintLogin() }

}

#___________________________________________________________ __________________
sub ProcessForm {
my $formId = shift;
my %attachedFiles;

# get the form record from the forms DB
my $recipientsDB = new verysimple::DB(file => $ENV{'CWD'} .
$CONFIG->GetValue('Recipients_Path'));
$recipientsDB->Open || die("SimpleSecure.ProcessForm: " .
$recipientsDB->LastError);
$recipientsDB->Filter("ID","eq",$formId);

# check that specified form id exists
if ($recipientsDB->EOF) {
PrintFriendlyError("SimpleSecure.ProcessForm: Form Id '$formId' not
found.")
}

# check that we are in secure mode if specified
if ($recipientsDB->FieldValue("RequireSSL") && !IsConnectionSecure()) {
PrintFriendlyError("SimpleSecure.ProcessForm: This form must be submitted
in secure (SSL) mode. Visitors: Please contact the site administrator for
assistance. Administrators: Either update your form tag 'action' parameter
to begin with 'https://' or update Recipient #$formId so that RequireSSL =
'No'.")
}

# set all the vars that will be available to the encryption code
my $redirect = $CGI->param('cfgRedirectUrl') ||
$recipientsDB->FieldValue("DefaultRedirectUrl");
my $format = $CGI->param('cfgEmailFormat') ||
$recipientsDB->FieldValue("DefaultEmailFormat");
my $from = $CGI->param('cfgFrom') ||
$recipientsDB->FieldValue("DefaultFrom");
my $subject = $CGI->param('cfgSubject') ||
$recipientsDB->FieldValue("DefaultSubject");
my $required = $CGI->param('cfgRequired') || "";
my $order = $CGI->param('cfgOrder') || "";
my $supress = $CGI->param('cfgSupress') || "";

# create the email message object
my $email = new verysimple::Email;

my $plainText = "";
my $useHtml = 0;
my %cgiFields;

# if cgfRequired was specified, check that all required fields are there
if ( $CGI->param('cfgRequired') ) {
my $buff = $CGI->param('cfgRequired');
my @required_fields = split(/,/,$buff);
foreach my $rf (@required_fields) {
if (!$CGI->param($rf)) {
PrintFriendlyError("The field '" . $rf . "' is required.");
}
}
}

# if cgfFrom was used, add it to the regular form too
if ($CGI->param('cfgFrom')) {
$CGI->param(-name=>'Email',-value=>$CGI->param('cfgFrom'));
}

if ($recipientsDB->FieldValue("DefaultEmailFormat") eq "HTML"
|| ($CGI->param('cfgEmailFormat') || "") eq "HTML") {
$useHtml = 1;
}

foreach my $param ( $CGI->param ) {

if (substr($param,0,3) ne "cfg") {
if ($CGI->uploadInfo($CGI->param($param)))
{
# this is a file upload
my $filename = $CGI->param($param);
$cgiFields{$param} = $filename; # (used in auto-reply)

$filename =~ s/\\/\//g;
$filename = substr($filename,rindex($filename,"/")+1);
my $filepath = $TEMP_DIR . $$ . "_" . $filename; # temporarily save file
here
if ($useHtml) {
$plainText .= "$param($filename
attached)\n";
} else {
$plainText .= "$param: ($filename attached)\n";
}

# save the file to disk for email attaching. use binmode
# so windows will deal with binary files properly
my $fh = $CGI->upload($param);
my $buffer,
my $bytesread;
open (OUTFILE,">>$filepath");
binmode(OUTFILE);
while ($bytesread=read($fh,$buffer,1024)) {
print OUTFILE $buffer;
}
close OUTFILE;
$email->AttachFile($filepath,$filename);
$attachedFiles{$filepath} = 1;
}
else
{
# this is a regular field
my @buff = $CGI->param($param); # in case of multi-value field
$cgiFields{$param} = join($ENV{"MVF_DELIM"}, @buff);

if (($cgiFields{$param} ne "") || (!$supress) ) {
if ($useHtml) {
$plainText .= "" . $param . "" .
$cgiFields{$param} . "\n";
} else {
$plainText .= $param . ": " . $cgiFields{$param} . "\n\n";



}
}

}
}
}

# little formating if html
if ($useHtml) {
$plainText = "

$plainText

$code

$message

Please use the 'Back' button on your browser to
return to the previous page and correct this issue.
If you continue to experience problems, please contact
the site administrator.

$message\n" if ($message);
print "

\n";
print $UTIL->LoginGUI("");
PrintFooter();
print $CGI->end_html;
}

#___________________________________________________________ __________________
sub ProcessLogin {

$SESSION->Load;

if ($CGI->param('Username') eq $CONFIG->GetValue('Admin_Username')
&& crypt($CGI->param('Userpass'),$ENV{'SALT'}) eq
$CONFIG->GetValue('Admin_Password')) {
$SESSION->Authorize;
print $CGI->header;
print $UTIL->RedirectJS($SCRIPT_PATH . "?c=x");
} else {
print $CGI->header;
# print crypt($CGI->param('Userpass'),"verysimple");
print $UTIL->RedirectJS($SCRIPT_PATH .
"?m=Login+failed.+Please+try+again.");
}
}

#___________________________________________________________ __________________
sub ProcessLogout {
# TODO: check authentication
$SESSION->Load;
$SESSION->Abandon;
print $UTIL->RedirectJS($SCRIPT_PATH);
}

#___________________________________________________________ __________________
sub PrintSetupNav {
my $active = shift || 1;
my @tag;
$tag[$active] = "NAVON";
print "

\n";
}

#___________________________________________________________ __________________
sub PrintSetup {

$SESSION->Load;

# PrintSetup shows the setup information for the script.
if ($SESSION->IsAuthorized) {
my $setupScreen = $CGI->param('x') || "f";
PrintHeader(1);

if ($setupScreen eq "s") {
# show the system setup screen
PrintSetupNav(4);
print "System settings control the behavior of the application.\n";
print "Edit these setting with caution.\n";
print "

\n";
my $controlCode .= "\n";
$controlCode .= "\n";
print $CONFIG->GUI(0,$controlCode);
} elsif ($setupScreen eq "k") {
# show the key manager
my $formAction = $CGI->param('f') || "";
my $app_var = $CGI->param('app') || "gpg";
PrintSetupNav(3);
print "

Keys Manager allows you to manager your public encryption
keys.\n";
print "If you have GPG or PGP installed, you can view the keys that
are\n";
print "currently in your keyring. You may also upload a public key
which\n";
print "can then be used for sending encrypted form mail messages.\n";
print "The key import features supports only .asc files, which is the\n";
print "default export format for GPG and PGP public keys.\n";
print "

\n";

    print $result || ("Keyring is empty\n");

    print "

\n";

     print $result || ($objPGP->Result);

     print "

Recipients are used to specify settings & recipients for one or
more HTML forms.\n";
print "Typical form processors allow you to specify a recipient using\n";
print "hidden form fields, however this can present major security
problems.\n";
print "$PRODUCT_NAME stores the recipients and other settings as a
'Recipient.'\n";
print "You include a hidden 'cfgId' field on your HTML form to specify ";
print "which Recipient record should be used.\n";
print "

Auto-Replies allow you to have an automatic reply sent to a
user after\n";
print "they have filled out the form. NOTE: If you use an auto-reply,
you must\n";
print "use cfgFrom as the fieldname for the visitors email address.\n";
print "